home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / hello.p < prev    next >
Text File  |  1990-02-23  |  800b  |  38 lines

  1. program hello(input,output);
  2. const
  3.    txt1 = "Hello world!";
  4.    pie = 3.141569;
  5.    einhalb = 0.5;
  6. type
  7.    farbe = (karo, herz, pik, kreuz);
  8.    point = record
  9.               x,y : integer;
  10.            end;
  11. var
  12.    i, j: integer;
  13.    f1,f2,f3: boolean;
  14.    ia: array [2..5] of array [0..4] of integer;
  15.    r: real;
  16.    karte: farbe;
  17.    start: point;
  18.  
  19. begin
  20.   f1 := (1 > 2) or (1.5 = 2.5) and (1+5 div 2 <= 3*4);
  21.   start.y := 1;
  22.   start.x := 3;
  23.   i := start.x+start.y;
  24.   ia[start.x,start.y] := i;
  25.   j := i div 2;
  26.   ia[j,j] := ia [3,1] - j;
  27.   karte := herz;
  28.   i := 17+4+3+8-(2*3);
  29.   j := 2*i;
  30.   r := 17.0+4.0+3.0+8.0-(2.0*3.0);
  31.   writeln(txt1);
  32.   writeln("i =",i,"   j =",j);
  33.   writeln("ia[2,2] =",ia[2,2]);
  34.   writeln("r =",r);
  35.   writeln(output,"Nun dies :",17,24.9,17+4,17.5+3.5);
  36.   writeln("Pie =",pie);
  37. end.
  38.